home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Borland Plateform / Turbo Prolog 2 / EXAMPL62.PRO < prev    next >
Encoding:
Prolog Source  |  1986-04-25  |  370 b   |  18 lines
  1.      /* program 62 */
  2.  
  3.  domains
  4.    tree =reference t(id,val,tree,tree)
  5.    id   = symbol
  6.    val  = integer
  7.  predicates
  8.    lookup(id,val,tree)
  9.  clauses
  10.    lookup(ID,VAL,t(ID,VAL,_,_)):- !.
  11.    lookup(ID,VAL,t(IDI,_,TREE,_)):-
  12.        ID<IDI,!,
  13.        LOOKUP(ID,VAL,TREE).
  14.    lookup(ID,VAL,t(_,_,_,TREE)):-
  15.        lookup(ID,VAL,TREE).
  16.        
  17.        
  18.